home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / CTL.LSP < prev    next >
Text File  |  1992-09-13  |  397b  |  13 lines
  1. ;move objects to a new layer
  2. ;
  3. ;
  4. (defun c:ctl()
  5. (princ "\nPick an object on the layer to Copy.")
  6. (setq ss (ssget))
  7. (setq ul1(getstring "\nLayer to copy entities to : "))
  8. (prompt "Copying to layer.....")(princ ul1)
  9. (command "copy" ss "" "0,0" "0,0")
  10. (command "CHANGE" ss "" "P" "LA" ul1 "")
  11. (princ))
  12. (princ "\nCopies selected entities to a new layer.")
  13. (princ "\nType CTL to execute.")